SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE PROC [dbo].[SP_TXMVTO_CNTB_Q01]  
/*-------------------------------------------------------------------*/            
/*----- Empresa           : OFISIS S.A.                          ----*/            
/*----- Cliente           : GMI                                  ----*/            
/*----- Sistema           : Contabilidad                         ----*/            
/*----- Modulo            : Empresa                              ----*/            
/*----- Programa          : Mantenimiento de Vouchers            ----*/            
/*----- Nombre            : SP_TXMVTO_CNTB_Q01                   ----*/            
/*----- Script            : TXMVTO_CNTB                          ----*/            
/*----- Desarrollado por  : Israel Estrada Polanco               ----*/            
/*----- Fecha             : 02/07/1997                           ----*/            
/*----- Base de Datos     : MS SQL Server                        ----*/            
/*----- Version BD        : 6.5                                  ----*/            
/*-------------------------------------------------------------------*/            
/*---- Modificado 1 por     : Percy Garc?a                       ----*/            
/*---- Fecha Modificaci?n   : 24/05/2003                         ----*/                
/*---- Detalle Modificaci?n : Saca 2 campos para visualiz. distribuci?n ----*/              
/*-------------------------------------------------------------------*/            
/*---- Modificado 2 por     : Yessica Morales                       ----*/            
/*---- Fecha Modificaci?n   : 12/11/2003                         ----*/                
/*---- Detalle Modificaci?n : Modificaci?n del estado de Desaprobaci?n de DES a DSP ----*/              
/*-------------------------------------------------------------------*/            
/*-------------------------------------------------------------------*/              
/*----- Modificado 3 por : percy garcia                          ----*/              
/*----- Fecha Modifica   : 04/09/2006                            ----*/              
/*----- Detalle Modifica : SE AUMENTO NUEVO CAMPO FECHA DE PAGO  ----*/              
/*-------------------------------------------------------------------*/              
/*-------------------------------------------------------------------*/              
/*----- Drop proc SP_TXMVTO_CNTB_Q01                             ----*/            
/*----- Grant all on SP_TXMVTO_CNTB_Q01 to PUBLIC                ----*/            
/*----- SP_TXMVTO_CNTB_Q01                                       ----*/            
/*-------------------------------------------------------------------*/            
            

@ISCO_EMPR TD_VC_002,            
@INNU_CNTB_EMPR TD_IN_001_CONT,            
@ISCO_UNID_CNTB TD_VC_003,            
@ISCO_OPRC_CNTB TD_VC_003,            
@INNU_ANNO TD_IN_004_ANNO,            
@INNU_MESE TD_IN_002_MESE,            
@ISNU_ASTO TD_VC_010,            
@ISCO_SELE TD_VC_003      

As       
---Declare      
      /*
Select Top 1       
@ISCO_EMPR = CO_EMPR,      
@INNU_CNTB_EMPR = NU_CNTB_EMPR,      
@ISCO_UNID_CNTB = CO_UNID_CNTB,      
@ISCO_OPRC_CNTB = CO_OPRC_CNTB,      
@INNU_ANNO = NU_ANNO,            
@INNU_MESE = NU_MESE,      
@ISNU_ASTO = NU_ASTO,            
@ISCO_SELE = CO_SELE      
From #TWPARA_EMAA      
      */
--WITH ENCRYPTION            
         
           
If @ISCO_SELE = 'APR' Or @ISCO_SELE = 'DIG' Or @ISCO_SELE = 'DSP'            
Begin            
Select a.NU_SECU, a.CO_CNTA_EMPR, b.DE_CNTA_EMPR, a.TI_AUXI_EMPR, c.NO_TIPO_AUXI,            
 a.CO_AUXI_EMPR, '', a.TI_DOCU, e.NO_DOCU, a.NU_DOCU, a.FE_DOCU, a.FE_DOCU_VENC,a.FE_PAGO,         
 a.TI_OPER, a.CO_MONE, a.TI_CAMB, a.FA_CAMB, a.FA_CAMB_DIAR, a.IM_MVTO_ORIG,             
 a.IM_MVTO_CNTB, a.CO_ORDE_SERV, a.NO_GIRA, a.FE_ENTR_CHEQ, a.FE_PROG_CHEQ,             
 a.DE_GLOS, a.TI_DOCU_REFE, a.NU_DOCU_REFE, a.FE_DOCU_REFE, a.SI_MVTO_CNTB,         
 a.FE_ASTO_CNTB, b.ST_AUXI_EMPR, b.ST_DOCU_CNTB, c.NV_INFO_AUXI, a.CO_CLAV_TAOR,         
 a.CO_USUA_MODI, a.FE_USUA_MODI, a.IM_MVTO_RETE, a.PO_DIST, a.NU_SECU_DIST,           
 a.TI_DOCU_DETR, a.NU_DOCU_DETR, a.FE_DOCU_DETR, a.FE_INIC_PRES,a.FE_FINA_PRES,a.CO_MEPA          
From TXMVTO_CNTB a         
  Left Outer Join TTAUXI_EMPR c        
  On c.CO_EMPR = a.CO_EMPR         
  and c.TI_AUXI_EMPR = a.TI_AUXI_EMPR        
  Left Outer Join TTDOCU_CNTB e         
  On e.TI_DOCU = a.TI_DOCU ,         
  TMPLAN_EMPR b        
Where a.CO_EMPR = @ISCO_EMPR         
and a.NU_CNTB_EMPR = @INNU_CNTB_EMPR         
and a.CO_UNID_CNTB = @ISCO_UNID_CNTB         
and a.CO_OPRC_CNTB = @ISCO_OPRC_CNTB         
and a.NU_ANNO = @INNU_ANNO         
and a.NU_MESE  = @INNU_MESE         
and a.NU_ASTO = @ISNU_ASTO         
and a.SI_MVTO_CNTB In ('APR', 'DIG', 'DSP')        
and b.CO_EMPR = a.CO_EMPR         
and b.NU_ANNO = 9999         
and b.CO_CNTA_EMPR = a.CO_CNTA_EMPR         
Order By a.NU_SECU         
End             
        
Else If @ISCO_SELE = 'ELI' Or @ISCO_SELE = 'ANU'             
Begin            
Select a.NU_SECU, a.CO_CNTA_EMPR, b.DE_CNTA_EMPR, a.TI_AUXI_EMPR, c.NO_TIPO_AUXI,            
 a.CO_AUXI_EMPR, ' ', a.TI_DOCU, e.NO_DOCU, a.NU_DOCU, a.FE_DOCU, a.FE_DOCU_VENC,a.FE_PAGO,             
 a.TI_OPER, a.CO_MONE, a.TI_CAMB, a.FA_CAMB, a.FA_CAMB_DIAR, a.IM_MVTO_ORIG, a.IM_MVTO_CNTB,            
 a.CO_ORDE_SERV, a.NO_GIRA, a.FE_ENTR_CHEQ, a.FE_PROG_CHEQ, a.DE_GLOS, a.TI_DOCU_REFE,             
 a.NU_DOCU_REFE, a.FE_DOCU_REFE, a.SI_MVTO_CNTB, a.FE_ASTO_CNTB, b.ST_AUXI_EMPR,             
 b.ST_DOCU_CNTB, c.NV_INFO_AUXI, a.CO_CLAV_TAOR, a.CO_USUA_MODI, a.FE_USUA_MODI,             
 a.IM_MVTO_RETE, a.PO_DIST, a.NU_SECU_DIST, a.TI_DOCU_DETR, a.NU_DOCU_DETR, a.FE_DOCU_DETR,      
 a.FE_INIC_PRES, a.FE_FINA_PRES, a.CO_MEPA    
From TXMVTO_CNTB a         
  Left Outer Join TTAUXI_EMPR c        
  On c.CO_EMPR = a.CO_EMPR            
  And c.TI_AUXI_EMPR = a.TI_AUXI_EMPR            
  Left Outer Join TTDOCU_CNTB e        
  On e.TI_DOCU = a.TI_DOCU,         
  TMPLAN_EMPR b        
Where a.CO_EMPR = @ISCO_EMPR            
and a.NU_CNTB_EMPR = @INNU_CNTB_EMPR            
and a.CO_UNID_CNTB = @ISCO_UNID_CNTB            
and a.CO_OPRC_CNTB = @ISCO_OPRC_CNTB            
and a.NU_ANNO  = @INNU_ANNO            
and a.NU_MESE  = @INNU_MESE            
and a.NU_ASTO  = @ISNU_ASTO            
and b.CO_EMPR  = a.CO_EMPR            
and b.NU_ANNO  = 9999            
and b.CO_CNTA_EMPR = a.CO_CNTA_EMPR            
Order By a.NU_SECU            
End             
        
Return            
/*---------------------------------------- Fin -------------------------------------*/          
GO
